Option Explicit
Sub D_Sample022()
    Dim myCht As Chart
    Set myCht = Charts(1)					'NϪ
    'ǳƨ즹
    If Sheets.Count > 1 Then
        Application.DisplayAlerts = False
        myCht.Delete
        Application.DisplayAlerts = True
    Else
        MsgBox "oO̫@iҥHLkR"
    End If
    Set myCht = Nothing						'
End Sub

